/* ==============================================================================
*
*   Copyright (c) 2010, Pierre Favier
*   All rights reserved.
*
*   NTasking is free software: you can redistribute it and/or modify it
*   under the terms of the GNU General Public License as published by the
*   Free Software Foundation.
*
*   Redistribution and use in source and binary forms, with or without
*   modification, are permitted provided that the following conditions
*   are met:
*
*   -   Redistributions of source code must retain the above copyright notice,
*       this list of conditions and the following disclaimer.
*
*   -   Redistributions in binary form must reproduce the above
*       copyright notice, this list of conditions and the following
*       disclaimer in the documentation and/or other materials
*       provided with the distribution.
*
*   THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED
*   WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
*   OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
*   DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
*   BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
*   EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
*   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
*   DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
*   ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
*   TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
*   THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
*   SUCH DAMAGE.
*
* ============================================================================== */

using System;
using NUnit.Framework;
using Rhino.Mocks;

namespace NTasking.ValidationTests.ACATS_3_0.C9
{

    [TestFixture(Description = "")]
    public class C91007A : ValidationTest
    {

        // This test has been adapted from ACATS Test:
        // The original test objective was:
        //
        // IF THE ELABORATION OF AN ENTRY DECLARATION RAISES" +
        // "'CONSTRAINT_ERROR', THEN NO TASKS ARE ACTIVATED, AND" +
        // 'TASKING_ERROR' IS NOT RAISED.")]
        //
        // The Constraint_Error in the entry elaboration has been
        // replaced by a Program_Error thrown by the task constructor
        // because one its entry has not been marked 'readonly'


        private class T1 : ValidationTestTask
        {

            internal T1(IValidationTestResult result)
                : base(result)
            {
            }


            protected override void Body()
            {
                Console.WriteLine("TSK1 WAS ACTIVATED");
                Result.TestFailed();
            }

        }


        private class T2 : ValidationTestTask
        {

            [Entry]
            internal Action Ent { get; set; }


            internal T2(IValidationTestResult result)
                : base(result)
            {
            }


            protected override void Body()
            {
                Console.WriteLine("TASK BODY WAS ACTIVATED");
                Result.TestFailed();
            }

        }


        private class T3 : ValidationTestTask
        {

            internal T3(IValidationTestResult result)
                : base(result)
            {
            }


            protected override void Body()
            {
                Console.WriteLine("TSK3 WAS ACTIVATED");
                Result.TestFailed();
            }

        }


        [Test(Description =
            "IF THE ELABORATION OF AN ENTRY DECLARATION THROWS" +
            "'ProgramError', THEN NO TASKS ARE ACTIVATED, AND" +
            "'TASKING_ERROR' IS NOT RAISED.")]
        public void Test()
        {
            IValidationTestResult result = Mocks.DynamicMock<IValidationTestResult>();
            T1 t1;
            T2 t2;
            T3 t3;

            try
            {
                Ada.Declare(() =>
                {
                    t1 = new T1(result);
                    t3 = new T3(result);

                    // Setup text expectations

                    Expect.Call(result.TestFailed).Repeat.Never();

                    Mocks.ReplayAll();

                    // Should throw an exception
                    t2 = new T2(result);
                },
                Begin: () =>
                {
                    // Start test execution
                });
            }
            catch (SyntaxError ex)
            {
                if (ex.ErrorCode != Errors.TaskEntrySetterIsNotPrivateError)
                {
                    Console.WriteLine("Incorrect ErrorCode in thrown ProgramError");
                    result.TestFailed();
                }
            }
            catch (TaskingError)
            {
                Console.WriteLine("TaskingError was thrown instead of ProgramError");
                result.TestFailed();
            }
            catch (Exception)
            {
                Console.WriteLine("Wrong exception was thrown instead of ProgramError");
                result.TestFailed();
            }

        }

    }

}
